home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 January / january_2001.iso / intercd / root / ^4Developers / VB / visbasdb / VBDB / VBDB Code / VB6 Code / Class 4 / Exercise4-2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-16  |  4.1 KB  |  133 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDataEnvironment 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Data Environment Example"
  5.    ClientHeight    =   2865
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4860
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2865
  13.    ScaleWidth      =   4860
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton cmdNext 
  16.       Caption         =   "&Next"
  17.       Height          =   495
  18.       Left            =   2640
  19.       TabIndex        =   9
  20.       Top             =   2160
  21.       Width           =   1215
  22.    End
  23.    Begin VB.CommandButton cmdPrevious 
  24.       Caption         =   "&Previous"
  25.       Height          =   495
  26.       Left            =   1080
  27.       TabIndex        =   8
  28.       Top             =   2160
  29.       Width           =   1215
  30.    End
  31.    Begin VB.TextBox txtContactTitle 
  32.       DataField       =   "ContactTitle"
  33.       DataMember      =   "comCustomers"
  34.       DataSource      =   "denNorthwind"
  35.       Height          =   285
  36.       Left            =   1260
  37.       TabIndex        =   7
  38.       Top             =   1680
  39.       Width           =   3375
  40.    End
  41.    Begin VB.TextBox txtContactName 
  42.       DataField       =   "ContactName"
  43.       DataMember      =   "comCustomers"
  44.       DataSource      =   "denNorthwind"
  45.       Height          =   285
  46.       Left            =   1290
  47.       TabIndex        =   5
  48.       Top             =   1200
  49.       Width           =   3375
  50.    End
  51.    Begin VB.TextBox txtCompanyName 
  52.       DataField       =   "CompanyName"
  53.       DataMember      =   "comCustomers"
  54.       DataSource      =   "denNorthwind"
  55.       Height          =   285
  56.       Left            =   1320
  57.       TabIndex        =   3
  58.       Top             =   720
  59.       Width           =   3375
  60.    End
  61.    Begin VB.TextBox txtCustomerID 
  62.       DataField       =   "CustomerID"
  63.       DataMember      =   "comCustomers"
  64.       DataSource      =   "denNorthwind"
  65.       Height          =   285
  66.       Left            =   1320
  67.       TabIndex        =   1
  68.       Top             =   300
  69.       Width           =   825
  70.    End
  71.    Begin VB.Label lblFieldLabel 
  72.       Alignment       =   1  'Right Justify
  73.       AutoSize        =   -1  'True
  74.       Caption         =   "ContactTitle:"
  75.       Height          =   255
  76.       Index           =   3
  77.       Left            =   -585
  78.       TabIndex        =   6
  79.       Top             =   1710
  80.       Width           =   1815
  81.    End
  82.    Begin VB.Label lblFieldLabel 
  83.       Alignment       =   1  'Right Justify
  84.       AutoSize        =   -1  'True
  85.       Caption         =   "ContactName:"
  86.       Height          =   255
  87.       Index           =   2
  88.       Left            =   -555
  89.       TabIndex        =   4
  90.       Top             =   1200
  91.       Width           =   1815
  92.    End
  93.    Begin VB.Label lblFieldLabel 
  94.       Alignment       =   1  'Right Justify
  95.       AutoSize        =   -1  'True
  96.       Caption         =   "CompanyName:"
  97.       Height          =   255
  98.       Index           =   1
  99.       Left            =   -600
  100.       TabIndex        =   2
  101.       Top             =   765
  102.       Width           =   1815
  103.    End
  104.    Begin VB.Label lblFieldLabel 
  105.       Alignment       =   1  'Right Justify
  106.       AutoSize        =   -1  'True
  107.       Caption         =   "CustomerID:"
  108.       Height          =   255
  109.       Index           =   0
  110.       Left            =   -600
  111.       TabIndex        =   0
  112.       Top             =   345
  113.       Width           =   1815
  114.    End
  115. Attribute VB_Name = "frmDataEnvironment"
  116. Attribute VB_GlobalNameSpace = False
  117. Attribute VB_Creatable = False
  118. Attribute VB_PredeclaredId = True
  119. Attribute VB_Exposed = False
  120. Option Explicit
  121. Private Sub cmdNext_Click()
  122. denNorthwind.rscomCustomers.MoveNext
  123. If denNorthwind.rscomCustomers.EOF Then
  124.   denNorthwind.rscomCustomers.MoveLast
  125. End If
  126. End Sub
  127. Private Sub cmdPrevious_Click()
  128. denNorthwind.rscomCustomers.MovePrevious
  129. If denNorthwind.rscomCustomers.BOF Then
  130.   denNorthwind.rscomCustomers.MoveFirst
  131. End If
  132. End Sub
  133.